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SHREG: 0 ;;SOFTWARE SWITCH REGISTER 
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I “CPU” TRAP VECTOR 
* 331 ME AND OTHER 

ca 

14 

14 


ERRORS 
5 BE SERVED AND ILLEGAL INSTRUCTIONS 


TRAP 
; BREAKPOINT TRAP (BPT) 


0 Ks — TRAP (IOT) ##SCOPE## 
C= OR TRAP (EMT) ##ERROR## 
C= 60 VECTOR 
C= 64 

hn ——— PROGRAM INTERRUPT REQUEST VECTOR 
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1 -SBTTL COMMON TAGS 
000214 STARS 

— HEHEHE 
s4THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 


0 0 bb 0 Ob Ph ee 
~ESBIRA POH 6s5 SE 








0011 ~~ ; ;START OF COMMON TAGS 
att i Re 3 Hea reer 
Ht: J * 
| ie iis 
Boilie & — 8 
i OLLI ” 000 * 0 3 * 
i 3 J i panes 
164 OO111 RPC: 3 }CONTA , INSTRUCTION 
ee OF bt 
1 1 * STAIRS AN 
168 —818 88 8 5 3 TO BE USED 
—3— ated eae * ; sAUTOMAT NDICATOR 
172 OBL 000 33 + INTERRUPT Noe INDICATOR 
174 —818 28 SUR: 33 OF 
175 OOll42 1 SPLAY: . DDISP 33 
ie Gali ree —— 
e 9° 
ge Fe oe, | 
1 il 5: e 33 ay 
ae Fee Ee & Be ea 
1 atts: saat 7 j : “eset AY) — STION HARK 
18 OO11 : ell «15> >; CARRIAGE RETURN 
1164 Sir [ASCI 
1166 ARS 


a 
388 
88 
F 
a 
ful 


gp AEA AAE AEA AE AE AA AE AE a a EEE EEE REE EEE EEE EES 


— — — — — — — — —h — — — — — — — — — — 


— — — —— — — — — — — — — — — — — — 


— ES 
8 


402 


MAINDEC-11-DZICA-C MACY11 27(1006) 22-MAR-77 09:40 PAGE S 
DZICAC.NE2 21-MAR-77 15:28 ERROR POINTER TABLE 


130 -SBTTL ERROR POINTER TABLE 

is * — Ht eee tee ft — a IS PERTINENT. 
is bof THR ff He tect convalhe’s PETRrB Rs‘ Betatnen AS FOLLOWS: 
g : 1 — EE: eel 


| TBs nin 


SoH See SNES 
8 
ẽ 


001166 gees ;"COULD NOT SEND-RECIEVE DATA” 
Ue’ 3 
— 8 

001172 001500 OT1 *SERRC, ADCSR,O 
el 001174 001476 DFO :0 
14 sERROR 2 “BIT EXERCISER” 
ste 001176 1 — ;"SEND-RECIEVE DATA ERROR” 
eit 001200 023173 DHe 7ERROR A/D 6000 BAD oa 
ste 001202 001506 pTe Iheee, ADCER, T, Woar,o 
219 001204 001476 OFO :0 


1206 ;CONVERT BIT FAILED TO SET 
001210 140 1 ; ERROR 
121 1500 OT1 ; PC 
1214 001476 DFO *SERRPC, ADCSR,O 
sERROR 4 CONVERT BIT 
81 7 ; CONVERT BIT FAILED TO CLEAR 
1 1 A/D 


140 Dat 
134 Gola FO cfr, ADCSR, 0 


ot Ens —— ——— —2 — “ae REGISTER 
ae : : 
ot 14  SERKPC, ADCSR, 0 


—88 att * — AY TO INTERRUPT 


O01e4e 001500 oT1 
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DFO ;SERRPC, ADCSR,O 
;ERROR 7 AOOS ADDR OR GENERIC CODE 
EN? ADDR. OR GENERIC CODE INCORRECT ON INTR. 


i —— salt, eifer 


;ERROR 10 RIF BIT ACTION 


pio sBIE D1 NOT CLEAR INTR. FLAG ON aoos⸗ 
DT1 > PC ADOR 
FO SSERRPC, ADCSR 


;ERROR 11 COUNTER MODULE ADORESSABILITY 


pu LIRR COULD NOT READ-WRITE BUFFER 
13 ; 
:SERRPC SBDAOR 


DFO 

;ERROR 12 COUNTER MODULE “BIT EXERCISE ROUTINE 
EMe 

DHe 

DT4 

DFO 

;ERROR 13 COUNTER MODULE COUNTING 


Bie ;COUNTER MODULE MISSED A COUNT 
TY 


;ERROR 14 COUNTER MODULE FAILED TO INTERRUPT 
EM13 ;COUNTER FAILED TO INTERRUPT 


DH4Y 

DT3 

OFO 

;ERROR 15 COUNTER MODULE ADDR OR GENERIC CODE INCORRECT 
EM14 

OH3 

OT4 

DFO 

;ERROR 16 COUNTER DIDN’T HALT ON OVERFLOW 
EM1S 

OHe 

DT4 
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DFO 
;ERROR 17 RIF DIDN’T CLEAR INTERRUPT FLAG ON COUNTER 


Bi 
;ERROR 20 COUNTER MODULE INITIALIZATION PART 1 

id ; INIT FAILED TO CLEAR COUNTER BIT(S) 
T4 


;ERROR 21 ILLEGAL INTERRUPT POSTED ON ICS BUS 


i 


;ERROR 22 ICS-11 FAILED TO INTERRU°T 
EM21 


Dra 


DFO 
;ERROR 23 ICAR NOT ZERO AFTER FORCED ICS INTERRUPT. 


OT4 
DFO 


;ERROR 24 SYS INITIALIZE FAILED TO CLEAR COUNTER INTERRUPT FLAG 
EM23 


3 


;ERROR 25 COUNTER STARTED COUNTING AFTER SYSTEM INIT. 


— — — — — — 
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1 0014 
—386 
1472 001526 
1474 001476 
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=: 
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2000 
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Bases 88 
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DFO 
;ERROR 27 AOOS WRITE DUAL ADDR. ERROR 


OTS 
OFO 


;ERROR 30 SEND -RECIEVE DATA ERROR 


SAME RS ERROR 30 ONLY NO HEADER TYPEOUT 


3 
Ww 
4 


a 


SERRPC pcr, 0 


* eodar, sB00AT, 0 





;TTY DELAY TIME 


;DELAY FOR 16 MILLSEC 
;DELAY FOR 3 MILLI SEC. 
sDELAY TIME. 


IFT 


DELAY FOR 1 MILLI SEC. 
iat GN i720 PR X 3 FOR 11/45. 
PAT TO BE SENT TO OUTPUT MODULE 


— — ee — ae — 












Oe 


;STARTING ADDRESS OF ICS MODULES. 


(oan 
8 

=~ [=€XPERT 

>O=NORMAL; 1=MODS SOMECTED TE FOR TST 0 
sO=TTY OUTPUT---1=LINE PRINTER 


;_RTI_INSTRUCTION 
sRTS PC INSTRUCTION 
;JSR PC, INSTRUCTION 


. SSCOPE, . SERROR, . SPOWER, SOF TSWR> 


— 
ve {aoe LocaT Ton TO erie 


mee shoe pac Frat POINTER 
C ;;J0T VECTOR FOR SCOPE ROUTINE 
a CTOR FOR ERROR ROUTINE 
VECTOR FOR TRAP CALLS 


is FAILURE VECTOR 


Hanes NUMBER OF ITERATIONS 
TIALIZE THE LOOP ADORESS FOR SCOPE 
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3 BN ime f 
4 
Te BES ate 
41 4 x 
| J — 
4 at 
1 SII 3 
: i Do 
= firs J 
| 450 Opies st J 
431 OO1ES4 OO ; 
| & Bi J 
1 177514 : 177514 
4 DIG 77816 
r 
4 ie . 
440 001676 O00000 : 0 
a Bie J 
SOE 
#43 001704 SETUP <.STRAP 
451 001704 
THE 
ce 1 
8 
* 
469 
| 
| 


oe 


—— —— 


— — — — 


M02 
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470 002016 
3 a 
HE 
8 — HH” 
2 8 $8 
ag * 4 
: i 
ca * 002064 64S POV Sees, (SP) ar 
Nes Gost 17% OO114) 65S: ROY SSHREG, SIR ;;POINT TO SOFTWARE SHR 
* ẽ 66S MOV foes ys ; ;RESTORE ERROR VECTOR 
1 176543 O1G434 MOV «#176543, SHINUM 
48 123456 016436 HOV «#1234156, SLONUM 
4@3 O02 001654 CLR 
se FI LOCATIONS "214-1000" WITH .+2, I0T 
: 
aa 000214 FILVEC: MOV «8214, RO 
2 000216 my i i 
98S: $ 
000004 
CHP Ris, —X 
500 O02 001000 CMP 6s 1000°RO 
* T 54 
; TYPE HEADER 
S04 5 tit 
5 in BEN GbR ThA PBR PEE Bos ako IITERRUST VECTOR BODRESE 
o 
£09 002164 001700 HOV _ 810S,CTLLOC 
i 0c coon, 1S! PE, MILE SASK FOR FILE BOX 
WE — Se 
13 0022 ios 
14 Troct 
ie c IL 
16 Oe: i 22S: 1 
1? he ? 000013 001672 ee #13, THPFIL 
18 ote, 026740 TYPE, ILLEG SILLEGAL FILE BOX... RE-ASK 
Bh noe amg Us fy Sime teser RT Sug someses 
Bed We 1875 19s: OC TPF SDEC. FI 
BES «dS SOE RNC TF FOUND 
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33 ESS e OF MODULE ADDRESSES 
185: CREATE ICAR 


8 
— 


;SET UPPER ADDRESS LIMIT 





BR 
ve 38 
99S: TYPE, MVECT ;ASK FOR INTERRUPT VECTOR 
* 
Cc 
238: 1 
, 726, THPVEC 
' » TMPVEC 


— 
gf 


;NOT IN FLOATING AREA 
C, ICSvT 
Cc, ;STORE VECTOR ADDRESS 


ad 
j HAVERIEY THAT VECTOR GIVEN IS ACTUAL VECTOR BEFORE GOING 
; 
MOV a i} 3 e 
—* ier "forte T 
: ; NTERRUPT INE 
HOV ier ITy T 
Hoy 8404; al ; ARENT TO GNSERRUPT 
TYPE NT - 
oe = 
95S: « MOV (SP) RS 2c 3 ADORESS PRINT 
Popsre ; :POP STACK 
TYPE : FILINT . > PRINT WHERE VECTOR 
nov ‘te ,7(SP) 3 SAVE RS FOR TYPEOUT 
TYPE ane 3360 =-OCTAL ASCII(ALL DIGITS) 





; 
| 
— — — 


— — — — — — — — — — —— —— —— eee 


— —ñ ——— — — — — — —— — — — ———— — — —— — — — 


BO3 
mA - CA-C MACY : ao 
DzIGRE.We2  B1-AAR-77 1S: get IN TIAL Lae Te cormon ns 


—— X mee 3820 








T 
i he 4 
Uebe4 000020 SS: MOV 338, 2820 INTERRUPT OK, RESTORE 20 
POpSP2 :POP STACK 
176772 cue ICSR 
+4 
93S: 0 
FILL LOCATIONS "214-1000" WITH .+2, HALT 
001700 BRTL ,CTLLOC 
14 FILHLT: 14, 
16 16/R1 


er -<- 
= 


: 


;DETERMINE CORE SIZE. 


** 
* 


CMMs 
— bee fe — — — 
= NEN ewr-o 
= Poser’ Saar eed Yead? ecg! Yom! § "+ Sead Spee ' 4 44 PS Nea Sea? FoF SF Fe 
tatatitrt artist 5— eet | se ‘ ‘ “+ —3 
oy " 34 fAN + v4) is OTOL DPD POFFO TOTO TL —WR att J 
2 324 us ce rt rt 8 


SRERGERUSELENAILS FENG RETINA 
# 


RD. CORSIZ 

,CORSIZ 
— FE Pia 
el eee Os 
cs" D . 
FRI 120 FRI ST MUST Be AN LL74e OR EQUIV 
258 Loc 4 
86 —*. — 
asi heck 170 


mr rr ——— — — — 


: c03 
ee ee ett an-z7 Mc Sh! 71008) SEAL IZE THE COMMON TAGs 


628 tice ASL 4 311770, DOUBLE 
998: Pepspe *RESTORE STACK 
PSHE te $ LOC 6 
(SP)+, 084 3 LOC 4 
SS: seie 3 LOC 12. 
001S64 P s NOW THE REST OF 
3; OF IMES UP. 


az 
e 


ga: 
abe, 


m2 
oe 





BRB RE SRRE ROR de otal SNe ——— 


001566 FREQ 
Pa 
T200 
001 ‘ 
— fy eg 
73: a , RO CLEAR ADDR AREA 
* 200 ‘INDICATE START AT LOC 200 
. , 8OUTS 
— Fred 
STARTI: a 190, SP 
013134 He toe 
; HAS : EVER STARTED 
:AT ? IF SO CONTINUE. 
000034 SSTYPE, 2434 *SET UP TO PRINT. 


Peete oes Soom eaaeseeNs + CRSBRRSeeRseesRaseesrscss 


3 


— — — 


DO3 


ay? epee P MACY11 27(1006) 22-MAR-77 09:40 PAGE 14 
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7) 
S 
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o Le 1 I START sPROGRAM MUST BE STARTED AT ADOR. 200. 
* Ae O01S6 3S: MOV — FREQ  }SET DELAY FOR TTY SETTLE TIME. 
hs nn oe 
| ree: usin 
035) o00340 1 MOV —s- 8340, PS : : 
3514 it 000176 001140 ee — 176, SR :SOFTMARE, su ? 
sse4 | G GO GET’ NEW VALUE VIA TTY 
= 1 998: TYPE ‘TYPE “TEST NO.?” 
53 003650 003554 MOVs STSTNO, 1 
WES a 000001 a a,” 182 
5S 99 
Tess 3 1s: TSN ie seh remap 
re ’ 003650 ts1 TSTNO 
re eke 003650 000007 TgTW0, 87. SLEGAL NUMBER? 
We r 4S: ;NO-TYPE “NO SUCH TEST™ 
* eee 88 IN creat 
r 003650 013134 28 MOV STNO, RTEMP 
7H 131 ASL * 
pin 
00100 175304 MOV 00, a8 ENABLE TTY TO INTERRUPT. 
re 1? bores See — ;GOTO TEST 
JU Fe T : ; — 
ae be ee aay a are. 
fe tts ter i TEST 
3 
as iste ER ele TEST 
733 T : TIBILITY TEST 
740 
ms 
74 
74S 
m9 
me 


— 
1 


CMPB 
003742 ree 87,28 ;<CONTROL G> TYPED? 


eee 


ee — — — — — — — — — —— —— — ———— —— 


E03 
15 
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. a 
3s AF BOT, part 
G 3110 BE 
300 GET VALUE VIA TTY 





— — — — 
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iaTEST 0 INPUT AND OUTPUT MODULE EXERCISER 


miro 
rE q ne Finn, 


Par A ay 400 


TATA CHE. 


1 TSTO: 


1S: 





; TYPE HEADER. 
: ; OUT CONSTANTS. 
28 TORR CLEAR TYPE 
TOGEN 
; TAKE CARE OF OUTPUT ADORS. 
BTOOUTR, SLPAOR 


ace = saltow rcs 70 TR 
SOUTAGR, RO sGET QUTPUT oe LIST. 
Ci a he 


PEE Ci R i Renee ener corr Gtr SS RERRRRRRotte pre trc ie 
———— — — 
SERERRS SS 


z 
SRaRgEEE FUE SODSIRURICUCEEES OF 


1371 is’ 
yas posr oles TON: PERE tines 
1 12701 344 ers Rt iT SO COS AREA = CURRENT PATTERN. 
1 poet 3$ Pa (1)¢ 
i 1 ’ 
i 1 001604 001610 2s PATRN, PATJOY DELAY TIME 
Beige O63 ot 





en — — — — — — — ee et — 


803 


—R 


77 09:40 
IZE THE 


INITIAL 


MACY11 27(1006) 22-NAR- 


21-MAR-77 15:28 


MAINDEC-11-DZICA-C 
. OZICAC.NE2 


NPUT MODULE 


(NO INTERRUPT) 


f 


FORM INFO INTO AN ASCIZ MESSAG. 


FE om 10 


F YES TAKE CARE OF IT 
OLE RAP Tacs 
* 

oF 

CORD DATA 
PRINTER BUSY? 
eon 
; CHAR. 
PMS Hea 
;ExI 


;PICK UP FIRST ADOR. 
TA_ CHANGED? 


a 


5 § ak 
sta 2 od voll gt eed aa — Be: 36 Ee 


NT 
qp · Sow 
#100, aSTPS 


— 


Sernt Dobe Guupsenais Hee pepeesentss = Sack 55 
eis 

d faced Beis fa & 

— 








———— ES 
—— 


— —— — — — — — — — — ———— — — — — — — — — 
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MAINDEC-11-DZICA-C 
OZICAC.NE2 


SOREN EONS SSE SUR ————— 


SESE CEEGESCEECISEL) GROTON 


0.0.0 
atte et ay at 
NOW LW 


RRESS SESS 





———— 
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Gis 3 Gah 


8 
5 


8 
— 


85 
Ret 


TOINT: 


10S: 


9s 
o0164e 


HO3 


40 PAGE 18 


jxIcs INTERRUPT SERVICE ROUTINE 


Pa *e 


ow 
—— 


et sr 


@ICAR, 6S ;GET ADOR. OF INTRING MOD. 
sFORM REAL ADOR. 


Fan Pee 


its : INTERRUPTS FROM TTY. 
PS “LOCK OUT_INTR.S 
t RE INTRS.AND SET RIF. 


Sian, Tocen ;GET IC CODE 


;RIGHT JUSTIFY GEN CODE. 


SINAOR, RO FIND OFFSET OF INPUT MODULE 
(0)+, TOADR THAT INTERRUPTED. 
, SOUTADR IF NOT ENTERED INPUT MODULE THA 


SINAOR+2, RO 
ADD ST OF COS TO RECORD 


T,. (0) DATA FOR THAT MODULE. 
WEB eesrone' 
;NO-FORM ASCIZ STRING. 


TOPINT ih 


TOOUTR 


— Sn. 


— — 
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;# CALL= FOCTA 
83, «SET UP BUFFER 
;PACK ADDR. 


Rie 
— — pacx DATA 


A 


ROCTA: 


8 
z33888 


— — 
⸗22 
— ee — 


— 
— 


18: 





= P= pe 
22 





927 

— 

929 

: 

e 

a0 (35+ ;STRING TERMINATOR. 

33 027204 Ot gs RESET POINTER 
EXIT ‘ : 

ay 

5 5 

3 my gee 

950 * 

8 MOVB »(3)+ 
nov PACK , PACK2 

— 3 

960 BIS teeo,patke 

2 nove Pa, )+ 

554 Bic 8177770, PACK2 

: Ges 

og MOV —- PACK, PACK2 
ROR 

A eee 

$73 ROR 

: U — 
ROR 

f 2 

S02 





——— — — — — — — — —— — — Ce ee ee — — 
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BIS 1 
1,(3)4 
, (34 
*(3)4 
RTS PC 
JMP START1 ;EXIT 
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fatest 1 INPUT OR OUTPUT MODULE EXERCISER 
t 
TST1: wo ; TYPE HEADER. 
cs: FRE BRR Rc tn, TY ERTS 
ee ‘ ASK “INPUT OR OUTPUT MODULE?” 
* 
is: fea ages ;WAIT FOR RESPONSE 
2S: ;PRINTER BUSY? 
: ECHO CHARACTER. 
J— 
ee ,83 ;WAS ¢C TYPED? 
START IF SO GOTO MONITR. 
MOVE ——«RTEMP, CHAR 
4§: Pipe * 
SCRLF 
fo 6fstlo e auteur ROUT INE 
SNe a) ag sD if RETYPE. QUESTION 
s#ROUTINE TO HANDLE INPUTTING FROM INPUT MODULE TO DISPLAY 
TNAR neu ;GET INPUT MODULE ADOR. 
3s: 8 SIO FS HEY E 
* alt, DISPLAY — ¥ REGISTER IF 11/45. 
6S: at 8 aSuR hadi ef Th “GOTO HONITR. 
Q By 
IMPs START1 
;#ROUTINE TO HANDLE OUTPUTTING FROM SWITCH REGISTER TO OUTPUT MODULE 
TST10: OUTAR ;GET OUTPUT MODULE ADDR. 
DELAR GET DELAY TIME (DEFAULT=3MS). 





CLR PS 


— — — — ———— — — 


— — — 


— — —— —— —— 
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;SEND DATA FRO THE SWR TO OUTPUT MOD. 


;ALLOW TTY INTERRUPTS 


SBuTROR 


ts 


— — — — — — — — — —— — — — es —— — — — — — — — — — — — — — — — — 
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DZICAC.NE2 21-NAR-77 15:28 





rote Dee fae Pe Oras fess Dao Dam eno acs > fins fins Dns fe 
RRES PRAISE cd dada eas aii 


— 


22-MAR-77 


INITIAL 


TSTe: 


MO3 


-77 09:40 PAGE 23 
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34 
j ATEST 2 DAC CALIBRATION ROUTINE 
g 


mite ; TYPE HEADER. 
I ; INPUT DAC ADDR. 
;ANY DACS PRESENT 


;MESSAGE “NO DAC ADDR. IN BUFFER. 


— — — mm — — — —— — — — — — ——— — — ——— — — — — — — 


_ 


NO3 
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fe 0 me Bee foe fas fe fe fas fon Bs fs fw, 





INITIALIZE THE COMMON TAGS 


—X 16's CHANNELS OF DAC THAT ARE “OUT OF PHASE" 
TST3: re ; TYPE HEADER. 

Tar pgcaor — PReseRTS 

mot ;NO-MESSAGE “NO DAC ADOR. IN BUFFER” 
18: aR * 


as: oo —— ;SEND WORD TO DAC 


— —— — — — — — — — — — — — — 


| 


— — — — — — — — — 


— — — — — 
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me Be be ae Pe Bae fe ee me ams bs me me Pew Pe ms mn me 
RU SSBIRREBRES 
: | : a 
i 4 


Do bs bo pe pa 
Oxnouscw 


0061 


a Gem De Pen es Be et Bee Bee em Bee toe fe pe be be ee 


— SS SRAECSASRBIMMN PSO BRUHN Es 
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04 


THETIC aE THE COMMON TAGS 


TST4: 


TSTYLI: 


18: 


TST4A: 


TERT 1 SOG wesr 


; TYPE HEADER. 
;GET COUNTER MODULE ADORS. 


RO ;GET LIST OF MODULES 
* ;ANY ADORS. ENTERED? 
;"NO ADORS ENTERED”. 


8100, aSTKS ;ALLOW TTY INTERRUPTS 


a ;DONE ALL COUNTERS? 


TST4L1 
+. SBDADR ;GET ADOR. OF COUNTER MODULE. 
ie Fic ZERO IF NO ADOR. ENTERED. 


SES teSamess SyRcss 32238 
5 


acxi 
jETEST THAT THE COUNTER MODULE UNDER TEST CRN BE ADDRESSED 
nov ae See, sSET FOR Scope, ITERATIONS. 
Ss rR en oe WE GOT SOMETHING BACK. 
ERROR 11 ;COULD NOT MAKE ANY DATA XFER 


i 
j#TEST THAT COUNTER MODULE BITS 00 THRU 1S CAN BE SET AND CLEARED 
H : 


;SET "GO0O DATA” 
;SET FOR ITERATIONS 

;SEND PATTERN TO COUNTER MODULE. 
(aa a RECEIVED? 


Z — 





;NO - REPORT ERROR 


— — ew ee — 


— — — — — — — — — 


— — — 


CO4 
DeTORE tes Si -fen=77 fecee) — ™ sRETIALIZE THE COMMON TAGS 


1 006164 ooo412 BR 38 ;LOOP 
ll 1 1 2s: BIC T : TRY NG BIT. 
i * eer: Are ise POY hort ODD § rae 
1161 001124 ae T ' : 
ibe 10 104012 1 
ties 12 3S: 
, RTEMP -SET TO NEXT BIT. 
lige 4 —8 —* — 18 : CONTINUE TSF ING IF ALL BITS NOT DONE. 
ties *#TEST THAT THE COUNTER MOOULE CAN COUNT THRU 
ll 3 #EACH: STATE 
He 
it scNTPAT RTEMP  ;GET ADOR. OF PATTERNS 
i old. rites 





@RTEMP, @SBDRDR ;SEND PATTERN. 





Wr SW 


BURRIBR BIS Voll zas 
8 
if 
88 
Bo 
— a83 es +R + 





»$T 


Bollde 18: 


1 
1 
1 

ll 

il 

il | 

11 4g: TEMP 1 sWATCH TO SEE IF COUNTER COUNTS. 

i 4 — if NO COUNT BY OVERFLOW-ERROR! 

tt 

i 001126 T, T 

tt 1 

ug mone pain ete 

lige 13134 a RTENP, OCNTPRE 

ig . 

11% *#TEST TO SEE IF COUNTER INITIALIZES PROPERLY--PART 1 

1 

1 

1 

1 


BBs 


se83 = 
3 


* 
S 


001126 


eat 

pee 

the 
: 


006410 000004 2s: 


meee ee 


—e 
= 
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177777 172462 18: 


172452 001126 


Z 
z 
: 
4 
: 


: 


;SET THE COUNTER. 
i sySTEn INITIALIZE. 


Beate6 
i 


ral 


5% 
;#TEST THAT THE COUNTER HAS NO 
;#INTERRUPTS POSTED ON THE BUS NOR ANY GENERIC CODE 


— —ñ —ñ — — — — — — — — — — — — —— —— — —— — —— —— — — 


— — — — —— —— 
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MAINDEC-11-DZICA-C 
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J. 


ENABLE 


8 
NTERRUPT ON OVERFLOW. 
CODE, HALT ON OVERFLOW. 


;ANY INTERRUPTS POSTED? 

; ILLEGAL INTERRUPT ON FCS BUS 

>SET Fi T 

eet ARint +I] 

;FATAL ERROR - ICS DID NOT INTERRUPT 


;READ ICAR. 

;READJUST STACK 
GNORE F 

NO OTHER 
SHOULD 


iPRNGLE IGS’ TO INTERRUPT WHEN READY. 


ON MODULE 
ta Siem :eEIOEHIY fat TN 


—XR 


feck. ALOR AMO GENERIC 


Cc 


gg 
sCHECK RIF 


— 


ie 
mt ME 
PS 
;ICS INTERRUPTS TO HERE 
@ICAR, SBODAT 
at 





“4 op fx & etscsang EE Ped. zs 3 
fg é s gE 
; #& & ERS ii 
SIRES gs Ss SBS 
1 Res : 








— — — — — — — —— —— ——— — — — —— — —— 


— — — — — — — — — — — —— — — — — — — — — 
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8177777, @SEDADR ; BL aY Wa Peers TO ALL ONES. 


;REPORT ERROR - COUNTER MODULE DIDN’T INTR. 
TST4GE ;LOOP. 
;#RECEIVE ICS INTERRUPT HERE 


—— 
7 





SR BD UE ae UR Ra Pa eA ee: 

He flees Blige Ry Ry Rr "7 ua Looe 1 

1303 O07 i 001125 BICB 8-1, SGDOAT#L  ICAR. 

eae 

Es Bee Eee 8 Brewer eer cS on 

Hf —82 6* inate 1S ;ADOR OR GENERIC CODE INCORRECT. 

1aie 006744 TST4GE ;LOOP. 

1314 , 1S: ;DELAY 40 MS. 

eo en i 

es 006764 pois POOP MODULE DIDN’T HALT ON OVERFLOW. 

1 

dk in ae mn 0 oe a TL noue 

te Beas tee 7 BP WAR ARM Ep cs ms 

13 Barats Ibe? Free 17 ;RIF DIDN’T CLEAR INTERRUPT FLAG 

1 16 01 000001 172570 TSTYGE: MOV #1, 3ICSR 

He ites Bios : I re 

ESTEST TO SEE IF RESET CLEARS INTERRUPT FLAG OM COUNTER 
a 

ree 01 2— 001160 TST4H: 810, STIMES 

136 re ie , oe 1S: Lee ;START COUNTER COUNTING 

Te 007056 IDM INITR sOVSTEN INITIALIZE 

1343 007060 105777 172530 TSTB a@ICSR ; INTERRUPT POSTED? 


—N — — - — -- — — — — — — —— — — — — — — —— — —— — — — —— — —— 
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; INIT FAILED TO CLEAR INTR. FLAG 


oe 44 BY Me Ly TO 
iin COUNT fHRU EACH STATE. 


TST4L 


3 

a6 

11 POSE 
af : 





See 


— 


AA AAR UU ur CREE RMS SS 


— de a td ed ed ht — dd — — — — — — — — — — — — — — — 
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BS 
* 
He ga 


1381 1 


02 be pee ame Ps Pee Pas me Pe Pe be Pne ae ene ene Pene mw me 
23338383888 
DOB 


PRT ETS 


suecaaaEE 
se pone: Seas Wed 17 ses & 


1410 
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ize 
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SSTEST S A/D LOGIC TEST 


;# 
: O 
TSTS: it 
ADLOGL: MOV 
TYPE, 
ADLOG: poy 
18: 


q Reese 


es: Wie 


ADLOG2: MOV 
MOV 
MOV 
CMP 
BEQ 
ERROR 

2s: SCOPE 

1S: ADD 
CMP 
BLE 


HES EEL son 


eIF oATA’ PRESENT GO AHEAD 
—9 “COULD NOT SEND /RECEIVE DATA” 
ROOS 


“BIT BANG” OF ADDS 


(3) , SGDDAT 


82,R3 
poloce 


;#GET PATTERN TO BE SENT. 
; Pa TO ADCSR. 


® 

$ T P 

> eDAT; Sort ? 
if a * RECIEVED 


;#REPORT ERROR: “CSR READ/WRITE ERROR” 
; #LOOP 

;#UPDATE PATTERN POINTERS 

1 — ae he 

; NOT INUE NEXT PATTERN. 


;#WILL CONVERTING SET AND THEN CLEAR? 


BS SEGEERS 


X 


81 T 


;#SET CONVERT,READ CSR 
He 


‘STD D CONVERT BIT SET? 


;#ERROR: “CONVERT BIT FAILED TO SET” 


;#SET TO DELAY 16 MILLISEC. 
;#01D CONVERT BIT CLEAR? 


— — — — 
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Bs : 
1 
—_— 
Ri 
19 
tims Sosa —S 
lone 007420 001001 
1445 OO7422 104005 
1446 
1447 
i 0O74e4% OO00004 
iat 
11 ml | 
1 — 3388 36 
1455 1 177466 
: 1 1560 001S66 
2a 
ea COM 
1461 005077 172112 
1462 V 
1463 OGO44S 
1*54 
1465 
L466 
SP ee u 
8 666 846 
14 D07S< — 77000 001124 
1075: 001124 
athe 001126 001124 
104007 
000747 
000 172026 
12777 5 172020 
—— 
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ERROR 4 ;#ERROR “CONVERT BIT FAILED TO CLEAR” 
; #LOOP. ST 
1S: INITR te iScue SYSTEN INITIALIZE 
ADLOGY: SCOPE 
s#CAN WE READ THE DBR WITH CSR BIT//CLEAR (READ BIT). 
ADLOGS: MOV , BADCSF READ CR BIT 
oe $2770, SAOCSR HID ie Reno he ne ca 
ERROR 5S — ERROR “CANNOT READ ADDS DATA 
:#REGISTER WITH READ BIT CLEARED.” 
1S: SCOPE 
s#WILL CONVERT DONE CAUSE INTERRUPT? 
POLOGe: ON ae aicevr VECTOR FOR INTER. 
—88 558 Hatton Tc is, 10 I 
MOYCORAIGCPREQ Q COnVERT 
nov ALLOW DUP 10 Se MILLI SEC FOR NTO. 
a 
ERROR 6 ;#REPORT ERROR “AOOS FAILED TO INTER. AT 
ADLEL: CLR @ICSR 
SCOPE 
BR ADLOGS 
s#CHECK INTR. ADOR. IN ICAR+GENERIC CODE 
ADLOG7: POPSP2 3.* AAR io" To HERE RESET SP. 
MOV 3 —* 
Erie 
BIS ;#ADD GENERIC CODE 
a T its ADOR + GENERIC CODE 0K? 
Gra 
ERROR 7 s#REPORT ERROR “AOOS ADOR. OR GENERIC 
* s#CODE INCORRECT. 


ADLOGS: 


de fasfuoadc” > 5. gamectespaeng Aer 


a — — — —— —— — — — — — — — — —— — — — — — — 


! JOY 
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1488 007606 

38 007610 ADLEL ;#EXIT A/D TESTS. 


; SP. 
— ERROR” RIF DID NOT CLEAR INTR. 
#FLAG ON ADDS”. 


000732 
55 18: 
000727 


ah 


DUAL ADDRESSING TEST 


ADLOGS: 


: 
8 
R 


;SET FIRST ADOR. 


I RTEMP ;FIX STOP ADDR. 
;UPDATE ADOR. 
»RTEMP © ;DONE ALL ADORS? 





Bans 
ee : | ‘ 
See 
— 
_— — 
— 
- 
— — 
WwW) 
-_ - 
— 


1508 007676 001427 BEQ 6S 
1218 Cotlee o7iNe ot ee en eee ee 
1511 00771 100 1 2s MOV 1 : TA TO A/D. 
ibis eal —5— 8 5 3 ce #4100" SS020R ‘BOA —80. Re AO ERROR? 
1513 1001 3s : 
1515 007726 104026 ERROR 26 DUAL ADOR. READ ERROR 
151 007730 00004 3S: SCOPE : 
iB 7 4g: MOV #4200, CK FOR WRITE ERROR 
131g Porras 8 8 iziibe CMP —— — WRITE? 
1520 00774 001001 BNE S$ 
1 007750 104027 ERROR 27 DUAL ADOR. WRITE ERROR 
1524 000004 cs 
1 —5 000742 BR : 1S 

007756 104427 6S INITR 

007760 RTS PC sRETURN TO 

* ADLOGE 
OF A/D TESTS 

007762 ADLOGE: SPASS 

007766 1S: ;*THE “END” 

—82 ADLOGL s#RETURN TO MONITOR. 

007776 


2 Bae be Ge fee Pee Pee Gene fens Pane Pane no ae Paes Pas Ps ne ae 


SRS ROOT ORE OOS 


Gee SF 





8 
bo 
rT 


pe at Bes Fe De 
— 


— — — — — = — - - ee — — — — ee — — — —— — — —— — — — — — — — — — — — — — — 


DZIORE.Ne2 S1RAR-77 TeceB INITIALIZE bad —2* 


1S44 —38* 006000 





1 
1 1 
i 010022 000137 003374 IMP START1 


, MAINDEC-11-02ZICA-C 
| DZICAC. 


— — — — — a — — — — — — — - 


NE2 @1-MAR-77 15:28 


1557 010034 104431 


pp ee 
ooEeeo 
=—t—T— 
Gent 
= 
8 





1 

1s HIG BB cos 
ey iSite 

1 101 

1 10110 

1 10114 

1 101 

1 1 
——J11 
ies Hiss Be 
ae 

1 i 

1 1 

A 101 

1 10164 

1 101 

ies He 

1 101 

1 10174 

ie ti 

1 

1 1021 

1 1 

1 10214 

1 1 

Hs HER oun 
ie eS it 





MACY11 27(1006) 


gs 
£3 


171036 


171006 
001576 
001140 


LOY 


“MAR-77 09:40 3S 
INITIALIZE THE Conon Tage 


* 
;#TEST 6 A/D CALIBRATION TEST 





8 
9 
TST6: TYPE HEADER. 
;GET AOOS ADOR. 
“UNI OR BI-POLAR? 
I I TNE 
as TR 
T CHANNEL 
IONS 
ONS 
T GAIN (1 TO 1000) 
TECAA: aSTKS -ALLOW TTY INTERRUPT 
, AOCSR ; 
1S : 3) oor CK TCH STER 
; BO OMe EOE Re TURN TO ONT TOR 
IMP ARTI 
i : ar 
9 
*R TIFY 
T : ary TYPE DATA? 
Br CALTP’ + PE IT 
ee FR1120,FR1 
$176, SHR DISPLAY AVAILABLE? 
Ea 2s :IF NOT, THEN BRANCH 
RESET 
RESET 
am TBCAA 
CALTP PR oe 
SCRLF 
JSR x7 CALIT CONVERT DATA TO BINARY 
DeLay — sLET TTY SETTLE DOWN. 
MCALTI 
React ra 
Feer RO" (SP) > :SAVE RO FOR TYPEOUT 
TYPOC 7 ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 


— — + | — — ee — —— 


2 Cee macy 1 27(1006) 





oat Oe = 
222 


010610 


Terererrer te feseates Das bo Os fms Qe Daw eno Po Hs Dxo Peas Po nd Peas bas Pao Pao pus Pwo Prue Ho mas fons fem fas uno Pano mo Sha Pe foe tao tea = poe 
> = be fo be Pe - 
— ARG AC AoA — — 


⏑ä⏑⏑ — 





CALIT: 
ie * 

en 

‘ CMe #4000, %0 sROUTINE TO CONVERT B MARY 

Ore SBEACE DECIRAL BFrER TO S 
we. . PC 

1S: fe 83777, %0 ;POSITIVE OR NEGATIVE 
ire PC 

2s: MOV eA, x3 CLEAR STORAGE AREA 
Ree 3 8Al+14 ;DETERMINE IF 
BNE + 
ny #o 3 POSITIVE OR 

T sete, 
BEQ * 
IT,%1 NEGATIVE VOLTAGE 
BNE 1 
I RO 
CALI 
IF MINUS TYPE “-" 

MMINUS 
ine Bn F POSITIVE 

CALITP: * i pe mye 

CALITI: BI “2 %0 
a calit2 a D0 OCTAL TO 

CALITE: ROR = DECIMAL CONVERSIONS 
reo HOLDTH BY METHOD OF INCREMENTING 

i Al 

CLR HOtoTH ;DECIMAL COUNTER AND 
MOV I %3 
a a 
ce 1414, ;DECREMENTING OCTAL DATA 
MOV #Al+1, %3 UNTIL ZERO 


' 
— — — 


a | id 


pmo P= pmo. 


OZICAC. 





E 


= bee be 


55 Fẽẽ 


1 

1 

1 

1 

1 

is 
ie 8 
Ls Sis 
foes 
1 1 
fe 
ae 
171 1 
1718 Ol 

EH our 
171 10706 


ee — — — 





BR 88 88 88 BR BB BE RE 


* 
+ 


- 
— 
J 


S8 8 
= 8 


=F 


* 


B= 85 BS 88 
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al, (3)+ 
» (3)+ 


$3595 5 5 9 3 eeepc — 


—— — — — — — 


0,0,0,0,5 
,0,0,5,2 
0,0,5,2,1 
0,5,2,6,0 
5,2,1,3,0 
3,6,5,1,0 
1,8.,7,0,0 
1,9.,3,0,0 


5,9.,1,0,0 


;IF DECIMAL COUNTER = 12 (OCTAL) 


— 


; TYPE DECIMAL 


INCREMENT 


r —* pec VALUE FOR DATA 


;ADD THESE VALUES TOGETHER 
;HOLDIT CONTAINS VALUES FOR DATA 
;BASED ON GAIN OF A/D 

;AT TIME DATA WAS TAKEN 


; TABLE OF VOLTAGE REPRESENTATION 


;0F BINARY INPUT. 


a 


a a a rm ee ee — — — — — — — —— — 


BOS 
DeLeme tes St smen-77 Teces  O™ sRETIALIZE THE COMMON TAGs 


171 
17 1 000 .BYTE 8.,9.,0,0,0 
Bite «= fooSti«é 
i 10714 O11 ons 000 .BYTE 9.,4,0,0,0 
i 17 000 
i 000 .BYTE 4,2,0,0,0 
fe Ge AB , 
i EVEN 
REPET?: 
1730 I —8 NE TO RIGHT 
1 1 ROR ; FY DATA 
i i 88 Me nar | UME TO 
1 i ™ CONVER: @SHR, Re F 
1 17 Bie 817,° s THISROUT SAMPLES SHR 
1 1 S #10%000, : GAIN 
1 1 176164 MOV : BITS TO AOUDL 
io Ol — — —— no START I 
1741 98 176152 a SAOCSR AND WAIT ION COMPLETE 
ig 
17 010774 003374 IMP START1 





Boas a az 


— — — — — — — — —— — — — — — — — ———— — — — — — — — — — 


COS 


Delcne snes Si -Ren-z7 lesen’ "10%? RETEATTZE The’ Common Teds 


IS KNOWN 
3 —3 GAIN LIST? 
Tet gain BY REAL GAIN. 


;ASK FOR CHANS: 


? 


GAL GAINS. 
8 
MA 


A 
I 
N 


OW TTY TO SETTLE GEFORE CONT. 
IC LOGIS CHECK 
4 —* 
ON 


; TYPE HEADER 
Bae 

;ASK FOR GAIN 
GET GAIN 
sar LIST OF 
oa 


FROM MONITOR 


af 


— 


I ip ORLY TAKE SAMPLES, COMPARE RESULTS 


1 


ee 


ee § ee a ee 
Ee Ges Sec ectées Ee RUERGEE LE 
woe. POEHaccoret Sects aretBaccevs petissssesse seuss 

E g a 


— 


pel 


ee 
— 


218: 
38 


i oe oe ee oS eS tS at 





i 
— = = = SSS6c 
7 
ee eseee28 RERSE > 
— — ed ed a om ot — — — ed ed a ts —2— 
Oe Sd ed ad ad dd ed Cd Od — — — — — — — — — — — — — —— — —— —— — — —— — — — — 
2 222 2222 Cn —— — ham bam ham bam iam bam hese bam titan em kam bam dam bam bad tam bam em bam bem han bam ban bam bal 
a0 Qooo00o 








BERR Rete re Ree PRRRKRKERERERRERERREERER ERIE Rees ——— 


— Od ed öIJ Og — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — ed ad ag ad a 


— — — —— — — — — — — — — — —— — — — —— — — — 


— — — —— — — — — — — — — —— — 


so | a MACY11 27(1006) 22-MAR-77 


ICAC.NE2 21-MAR-77 15:28 


ie 


— 


fae tas 
io 


= pe 


- Do fea [=o Dao ewe Da feet ns fee bos 






—F 


EES 
=n 


FHed INE OR ERENES: 


Bae Fae am en Bm fn a ae fins frees Pee fe fae fo PS be ee 
— 388688 
me ä U—— 


Pe bs an bo be Pe Fee Pee Pe me Pe Ome Dae Ome Pam fae me He Pe Pe fms Pee me Pee 


Oo 
— ee 





—X 


013112 
1311 

bee ait 

013112 


001652 


131 
1 


170000 


—* 
013342 


— 


7" 


1311 


Os 
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118: 


13S: 


ree Bega ge 


2 


ie 


;GET CHANS 


;CHAN. SeF? 


;CHAN WITHIN LEGAL BOUNDS? 
;NO-THEN TELL HIM 


;ASK FOR EXPECTED AVERAGE. 


—R 
— ;GET AVERAGE. 
#170000, AVEXP LEGAL AVERAGE? 
* Tt HSER." w 
siete 

AVEXP 


;ASK FOR TOLERANCE. 


— — ee — — — — — — — —— — — — — —— ——— ——— — —— — — — — 


rt —— — — —— — — Se ee — — —— — 


EOS 
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001660 LINEPR 
i i ; 001662 001150 STPS 
iĩ 001664 001152 LPDBR, STPB 
022004 , ers 
14S: ‘ ;TYPE “REPEAT” 
114 





ey 013106 
1 167356 


ips 013104 SS: 
4 013106 

013104 Ol3lle 

013106 013112 


DI as l2 013106 
—n Oleise 


S62 

S64 
“Ya! 
x. 


: 


Sur ece west ercene 
+ 


Eats 


TAKE AVERAGES 


; INE TO TAKE 256 SAMPLES OF AL CHANNELS SPECIFIED 
#CALL ’ 


* 
* — 
* 





SAMPR 
g 
18% 11650 OL 001552 001566 SAMPR: ov FRSO, FREQ ;SUB PART TO SET UP DELAY BASEDON 
1 il eM 35 SUB 8 ;NUMBER OF CHANNELLS WERE SAMPLING. 
1 1 1 131 MOV , SAMOFF 
1900 O11 BEQ 
1901 O11 131 
1 il 37 2 00156 1S: FREQ 
1 Hi? 4 Oo i 
ize Bt He 
1 il : 001566 @ 
‘ay Bu py yee 
1 13116 2S: —— — 1 
iss —43 —8 Rl eet Pon GF cou 
isit * 13104 013076 3S: MOV CHANS , CHAN GET STARTING CHANNEL 
1 3076 013074 4S: peu CHAN, CHANL -SET TO RIGHT JUSTIFY CHAN. 
1913 ii 063. " * | FIX TO LOAD INTO AID WORD. 
ae . 
2044 GOSUB  .CONVT .T ION. 
13! t . MOV RO, (1)4 : Fone 
1 12014 1 ‘Rear F on CHAN 
1 i 1378 013106 is , CHANF ; ALL CHEER 
155 8 013116 Phe CSHCNT ;DONE 256 SAMPLES? 





— —— — —— — — ee — — —— ee — = ce — — 


FOS 
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r Hae Hey eee Bm Baron 





P a , 
fe t SRR YT Bin "Bote ato ERABCE READING OF THE RID DaN,  NVERSION 
1 - #CALL=GOSUB, CONVT, RESULT FOUND Is RO ARIGHT JUSTIFIED 
193 CONVT: Fit ‘f WORD 
i —* 
ig aby 8 ART ar — * 
1S: TST ;WAIT FOR CONVERSION COMPLETE. 
to ct AS CSR jENABLE READING OF DBR. 

1339 ea MOV acs ,RO “READ AID RESULTS PUT IN RO 

1S a 

1345 1 ROR RO 

1944 1 ROR RO 

135 1 : ROR RO 

1 121 2s: ee RO 

1948 1 ASR RO 

i 12144 Ro 

i 1 —318 TURN 

1952 3% 

1 ; 

: $ 

1357 —* 

i924 tk 

34 ; 

1 0121 013076 AVERR: MOV CHANS , CHAN T 10 FI Y 

—* lel CR CHAN’ en cersey 

1 121 013116 AVERRL: S , SARCHT 

ise lel MOV —— 1 % IN RI. 

1%? Ol : Bren POINTER iin POONDT TIONS Ree THIS CHAN. 

1 RTEMP 

1 1 (1), BLOM 

1 MOV (1) RHIGH 

1a 2s: cre RHIGH, (1) FIND REAL HIGH VALUE. 

i T 38 

1 MOV (1), RHIGH 

te 3S: P oe FIND REAL LOW VALUE. 
(1) 

ie 1 45: MOV (1)4 — ;GET CURRENT SAMPLE. 

1978 Ol2eS2 005737 TST BIPot 





rhe ee eek MACY11 27(1006) 22-MAR 
21-MAR-77 15:28 INITIAL 


1 
i 131 
1 13 ig b13i3e 
1 13 
13 
131 


a 131s 


0131% O13l3e2 
Ol3i22 013136 


13190 013136 


~~ s 


Seed tne tosmtooom MN 
ce 


AGS 
RTEMP1 ; ADD TANT TO 
RTEMPI,AVTKN ;"BOOT" ADD ALL 


{PORTE 70,100 AT NEXT cory S¥PLE 
a Mest SCE IF q 
vrewe, —_HIOGTHEN FERORT EBROR sor 


ws 


3 3 
— 


ä α ee ar ee ok 


4 — ATEMP 1 
i z 013122 val ee onenaton Oh uiSH “FORCED” TYPEOUT? 
013074 AVERRN: 82, CHANL —— te cama 
Giese feery pune ae 
Ta * 013076 013106 CHANF : OTHERWIZE —— 
0 
REPORTER 


; TYPE “REPEATIBILITY ERROR” 


oy 


Satara 


o£ 


; TYPE “REPEATIBILITY FORCED TYPEOUT™ 


DRE BoB — 


a 
UTE 












0 
1 87 FIND AVERAGE. 
062. 1 134 R 

131 SAVERAGE=TOTAL OF SAMPLES- 
4 i ;DIVIDED BY 256. 
2014 ¥ 131 
Si Hes Bee sie 
Bi Ges Gere bike Bin 
ay at 
* 012470 004000 013126 SUB 84000, AVTKN SUBTRACT CONSTANT. 
— Ret om com, 

013076 MOV CHAN, -(SP) : SAVE CHAN FOR TYPEOUT 
2025 ie TYPOC :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ee? ie I 013100 F GAIN, Re TYPE GAIN. 
* i 042702 170000 BIC : pee 
atk 1 MOV 7 (SP) 33 F 
atk i — eee + RO EYRE OCTAL ASCE CALL DIGITS) 
2034 012532 W88 M2SP 


HOS 
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an bier 17808 Foor 3) 0008 a ;TYPE LOWEST SAMPLE 
tg; ea ibiigs Foc eli 11 SM Be. — aus DIGITS) 
026406 


=) 

— 
t 

4 


13702 01312 MOV 
. a rPOCT Re * TYPE TAKEN 
0 HOV ,-(SP) i gave Re FoR —— 
TYPOC t§G0 TYPE--OCTAL ASCII(ALL DIGITS) 


eg ;SAMPLE=COUNT POINTER? 


Ri 
— ;CHECKED ALL SAMPLES? 

AVTYP ; 8 OF AT THIS POINT. 
RTEMP ; TO NT. 

RS : ALL POINTS? 

44 :NO-THEN LOOP 





A’gATQA Vee Gre ¥ a’ya A 
OOOSSOSOOOOSO c 
— ee > 2 0 me ee — ee oe 
£ 


Keep 
Hecer eee 
010246 HOV” RB, -(SP) i EAVE Re FOR TYPEOUT —— 
1 nee $400, NE Te BSCIICALL DIGITS) 
01 13125 013134 MOV AVTKN, RTEMP GET AV 
J ee ee V 
JRL 
es: a (1)+, RTEMP 
BGE 
3S: 8 enn" 
GosuB AVTYP ;TYPE RLOW 8 
5 013116 4S: HOV — ;SET sanice 10,50, a atts. 
rep CHAN, RI GET BUFFER POINTER. 
4 
BNE 





;FIND ALL OVERSCALE POINTS. 
GET RID Fe ets 


; TYPE 2 SPACES. 


Bb To OCT Pe ROUTINE. 


4 ya * 


22-MAR-77 
INITIALIZE THE COMMON 


fa f 


MACY11 27(1006) 


-OZICA-C 
21-MAR-77 15:28 





ry. 


Reese ae * 


BSNS BSB BES SIR 

— oy OTe SSR 
gd ae ed ed ee — — — — — — — — — — — — — — — — — — 
CuCuCUCU CU CUCU CU CuCUCU CU CU CucuCuCu CUCU CU CUuCuCuCUuCUCUuCUuCUCuCuCUuCUuCUCUuCuCuCuCuCuducuCuduCuCcucum™ 


— — — — — — — — — —— — — — — 


jEPOINTERS USED BY TEST 7 REPEATIBILITY TEST 





IN INFORMATION 


APSE 


*————— 





* 
* 





— — — —— 
— — 


— ——— A A oh a og ob ok oh a 





BYBOBRERRS SSS TLS 


— —— — eg ed — — — — — 
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198 is GAIN LIST 

1 

| ae * an & ia 
—3834 338 
aie ene 8 

1 131 > GAIN * 
pp A — 
1B 013176 INADR: 

163 Ol 

t i 

ie OL 


o 
= 
KEK 

= 


Seeesee 
COOCOCOCOCOCOCOCOCOICOCOCCOCO 


ooooeo 
—I 
= 
o 
ee es eee ee eeeeeee?e 


ADDRESSES 


: 
: 


oar ar we eae ap ae mea ar wae 
‘A 
GOCOCOCOCOICOCOCOCOICOCOCOCCCO 


Bee eRe ee ee meee 


rrvrurororororururorororurururorororurururonorururorururororurur 


ae ee ee Oe ae ae ae Be ae ae me a ae bm ee be he te be be bn ee eh ee 


Stites 
= R 
Get pas Be bee p= fe fe 
a 


LENA SSBVFRIBR=ABISI Va AFZIN~SSeES 


ooooocecescescooseso 





— — — —— ee — — — — — — — — — 


— — a ee — — — — —— —— — — — — —— — — — — —— — 


KOS 
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2251 


rn 
4 


th tt 


pi 





13314 


1 


See eRe ee meme RH me eee 


aR 


21-MAR-77 15:28 








:# DAC MODULE ADORESS 
-#AOOS MODULE ADDRESS 


-0=8 = 
=#TEMP STORAGE OF INPUT MODULE DATA 


°# 
*#ROUTINE TO INPUT INPUT MODULE ADDRESS. 


RINAL: ines 


EXPERT 
* ;ASK OPERATOR “INPUT MODULE ADDR(S)? 
SINADR, RINAl 

tip. RINA1+2 

a i TR INRA ocr RES 
BAR LER «conc, 


fi » ;NOW FORM REAL ICS ADDRESS. 
(0) ;NORMAL-ICS MOD=171000 UNLESS PATCHED 


E 
ae toe 


;1F SO-EXIT 


— — — — — — ee —— — 


_ MRINDEC-11-D2ICA-C MACYI1 27(1006) 
| OZICAC.NE2 


— — — — — 


21-MAR-77 15:28 








LOS 
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34 
j HROUTINE TO INPUT OUTPUT MODULE ADDRESSESS 


ROUTA: 
;ASK OPERATOR “OUTPUT MODULE ADDRESSESS? 


Zas 


{CALL TO INPUT OCTAL ROUTINE 
SADOR TO STORE OUTPUT ADORS. 


ROUTAL: 


Sy aueabar Sys 
“3 


j ROUTINE TO INPUT COUNTER MODULE ADDRS 
5 


RCNTA: TST EXPERT 
‘ ASK _ OPERATOR FOR COUNTER MODULE 


SCNTADR, RCNTAL 
ay #l6., RCNTAL+2 
RCNTA 
INOCT ;GET THEM 
RCNTAL: tape 
V SCNTAOR, RO 
eH, 
18: SMOD, (0) 
JSR PC, CKAOR 


— — —— 


MOS 


— Mimogcsay-ozrge-c — A 102 Beeb Facd 


: : 
ae Se 
eid oe X — ae 


— olaoettetaall near jeanne —— im 


1S 


t AROUTINE TO INPUT DAC ADDR 


es 

RDACA: 

RDACI: 

is 

RADA: 

RADAL: 

1s 

INOCTR: TYPE 


ss — 
oo (=) oo Qo 
A 71 8 98 
78 ff i i 





ie 555 
—“ ——— 
SUM TNO @ 
X 








ee — 


—— — — — — —— — — — — — —r ——— —— — — — — — — ——— — — — — — 


— — — —— 


— — — — — — —— — — —— — —— —— —— — — —— — — — — — — —— ——— 





NOS 
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he 


BBE 
Bye 


z 

io 

2 
2 
8 


1S: 


3S as 


41 
4 CHAR 
ut CHAR i aoe i. BIT - IF ANY. 
Wiss CHAR, 8177 sHAS IT A RUBOUT? 

ts : “NS. - REINTIALIZE. 
141 PRINTER ’ 
14174 : “ase T TILL NOT 

CHAR. be. 


THEN TERMINATE INPUT. 


eit 
4 


o 
5 
ag *WAS IT AC? 
SCTLLOC s1F YES GOTO MONITR. 
CHAR, 814 >CHAR = "tL"? 
iPeer ;YES - THEN SET LINEPRINTER MODE. * 
CHAR = "tJ"? 
CONNTR ;YES = THEN SET JOINED MODE. 
84, CHAR ;CHAR = "4D" 
COUNDARY DELAY. 
A, RS OT, 


* 


Bi Bi 


1 BPE 
5 
J 
is 
8 


— 


ee NOVICE MODE 


cS 
- 
o 


eb eee 
— 
st 
~~ 
J 
i) 
xB 
= 


cs 
t Wet + +_¢ om 
+ \e 
8 
—2*—⏑ 8F 


yan - REPORT ERROR. 
;CHAR TYPED <ASCIZ 7? 


Be ea oR 


a 
N 


fae gest fe hs - 


BERSGES SRGEWETARFAN GAR GURG AAT RTE Ie eae eee geseny 
af 
Z 





* 


22 
zzz 


ae ee — ee — 


— — — — ee ee — — — 





— — — — — 


at ews Gr Bat Be be 


22000 Des 








— — — — — — — ——— 


8553 


Sete seeds RISSERNS NSS ms Sema 


tates 8 


BO6 
Deon tes Sicmen-77 Tere shit Ize THE COMMON TAGs 


ONIN 


, CHAR 
’ NIN 
NCFLG 
NINC, NINCI 
33 
8iS.,  NINC 





Zzeru 
— 
— 


I NINI 


ig 


2 
Ps 
— 
=z 
- 
Zz 
pe 


222 = e 
“sae % 
$a 


: 


as 


uw. 


20258 JweRz 
Z 


aa 
— — 


NUMBERS THAN ALLOWED? 


=" 


ae 





are, OE COLEN TWED. STORE CURRENT 8. 
(NO oe ee: 






). 
a (STORAGE. 
iF EX STORAGE POINTER. 


OTA PMG Ta EAP A 


cng 8 ST + OTR FRED. 


COB 
DeTCRes ted St pan-77 Tecoe 72% AETIATTZE rhe common tats 


Pet Banc 


pov OTN, © (00 
ie iN 
1 
“ 
INOCTR 
108: TYPE 
MOMARK 
JeP INOCTR 
118: TYPE 
MINNN 2 
128: Ye 
MINKN 
JMP INOCTR 
TRETURN FOR 1D, tJ,?L, tN, ¢€ 
5 
RASK: 
#4, (6) 
CHAR: 


zz 
—— 
zz 


poe 
ee 


hs | 
ne ee zu 


: 





— 
—J 
ee 


— — ee ee — — — — 


— — 
{ig allie 
- pall OVERFLOW ERROR 


; TYPE “LAST CHAR TYPED NOT AN OCTAL DIGIT” 


SET PERT Nook, 


HERE ON “?N”. 
T NOIVE MODE 


’ 
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34 
j BROUTINE TO CONNECT 1/0 MODULES (SOFT) 
001654 CONNTR: 4 CONNT 
| — Rec 
25.36 015036 INP RASK 
2537 
| T OR T 
| ea SPD Tatty OaTER Br rorthatOn Cbger BCFAULT OF 3 MILLISEC. 
| @543 015152 005737 o01652 ROELA: TST EXPERT 
151 1 ae. +6 
151 1 ASK OPERATOR - 
1 L — oR ree "DELAY TIME IN MS (DEFAULT=3MS)?” 
FREQ 
Hele — ———— 
013134 a wl ee ee 
. BE 43 zuF ZERRO, USE DEFAULT 
1 1 CLR FREQ 
1 : 001566 1S: * FR " FREQ ;SET FREQUECY (OR DELAY). 
1 T Ql 
r BNI 3$ 
i 013134 DEC RTEMP 
1 es: he 
—S ion 3s TYPE ;TYPE™ TIME TOO LONG”. 
1 MTTL 
1 BR RDELA 


34 
j BROUTINE TO FORM SECOUNDARY DELAY 
MDEL1 





ee ee ee 


— — — — eae — — — ee Ce — — —— —— — — — — > 
— — — 


MAINDEC-11-DZICA-C 
OZICAC.NE2 


21-MAR-77 15:28 
104401 


o 
: 


0016S2 


—E 


163550 


SUR URR ERE Ram eMAEERE Sawa 


1 
B ona 
i 0131S 
1163 
ip gue 
18 
013342 
013342 





HAHA NA 







aa! 


1551 1 
Bs tee i 
15530 


Bisex 23710 Oui7oe 


at 


aa 





F 






tt 


A 


oes ie 
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22-MAR-77 09:40 PAGE S4¥ 
INITIALIZE THE COMMON TAGS 
3S: TYPE 
MTTL 
BR RDELAY 
;# 
#ROUTINE TO SET UNI OR BIPOLAR A/D 
s#CALL = QUBR 
;# 
RQUBR: TST EXPER 
fe ‘ UNI OR BI-POLAR? 
MQ 
1S: fste —* ;WAIT FOR RESPONSE 
2s: iste TPS ECHO 
te —* 
* Rie, ;¢C TYPED? 
START 
ees ex rior 
MOV 8 
3: Sex., star 
CMP X 
BNE 4§ 
exit BIPOL 
4S: BIPOL 
EXIT 
2 § 
H T THAT AN IS A LEGAL ICS-ADOR. 
3% ' G6 HAE TER TH BOOR AR iB) 
j CALL = JSR PC,CKAOR 
4 
CKADR: ae, 


ht 
* at ADORE EXIST BUT MAY NOT BE ASSOCIATED WITH THIS 
ia PILE BOX THERES One, CHECK ADDRESS FOR WITHIN FILE BOX LIMITS 


MOV ;RESTORE TIME OUT VECTOR 


Cw Testnt, cro) 





RR REE gg ew oo. 


— — — 


— — — — — — — — — — — —— — — — — 


| seas 


— — — — — — —— — — — — — — — em ee 5 — — — — —— —— 


serra 


8 
—* 


FUSER —— 





— — — 
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By BR an 


022517 


15610 


001566 


001570 
013134 


015672 


001$72 


O13198 
015672 


013134 


015672 


013134 
015672 





FOG 


22-MAR-77 09:40 PAGE SS 
INITIALIZE THE COMMON TAGS 


18: 


1S: 


— — — —— —— — — ee 


2 
par 
3 
— 
A 


ww 
© 
a 
a 
~ 


=-OCTAL ASCII(ALL DIGITS) 


a 


au™ 
: 


BAF So 
oo 


TPE MESSAGE. 
pA FOR TYPEOUT 


RSLS 
so 
“ 

Sra 12 
: 
8 
8 


J 


. WORD 
TYPE, -NRANGI ;NOT WITHIN FILE 
),-(SP) 0 
Typoc — + EO —— ASCII(ALL DIGITS) 
? nee, sPOP ST 
oy ee (RO) POINTER? To RE -feK Ou QUESTION 
EXIT — RETURN 
z* 
: #ROUT INE USED OFR GENERATION A DELAY 
j CALL ADELA 
nov FREQ, RTEMP ;GET DELAY TIME 
Q1, RTEMP2 
DEC RTEMP ; 


= 
7 

i 

5 


i 
2 
E 


DURRREERE: 
3 


+ 


MATNOEC-1 MACY11 27(1008) 
CRENES  BI-RAR-77 Is:28 
2697 
98 
39 
1 
8 BIE sap oxo 
1 88 
es atte 000001 163170 
; i 139 003374 
11 015756 052777 000100 163160 
e7l2 015764 o00002 
2713 
at 
s 
719 
2718 
a boi 4H 
1 1 
Q15766 23727 O0l602 O00012 
27e3 015776 0004 
Bee iy me 
B72 016005 005137 016000 
16016 
2731 01603 016000 006037 
— poe 100000 001606 
2735 016052 O1 000001 001606 
re 016060 00002 
16062 
3739 ie 
1 Boe 137 
al 16072 
1 
E — 
5781 
2752 016102 


22-MAR-77 
INITIALIZE 


RINIT: 


18: 


RCPAT: 


RCPATI: 


RCPATL: 


be 


— — — —— — 


GO6 


;# SYSTEM INITIALIZE ROUTINE 


MOV SICNT,RO 
ae 
ARTI 
BIS 8100,  aSTKS 
EXIT 
31 
TO MODIFY PA SENT TO 
ter oRaT LORATTON MAY if CHEWED BY RPATA SOT TTERN MOD 
sRCRLLACPHTR 
CMP PATRNM, #12 
BEQ RCPATR 
cLC ;CLEAR C BIT 
as agPATRN *MODIFY PATTERN 
#5137,RCPATI | ;DOING A COMPLEMENT PATERN? 
a is :IF SO DON’T ADD CARRY IF ANY! 
me 
IT 
CNP RCPATI, #6037 
a fo0000, PATRNC | 
EXIT 
MOV #1, PATRNC 
EX! 
IFIER LIST 


mer pm 


2 
8 


SOE CRENENTING PATTERN 


ETE Eee Te eerie OF Avoore 


mm a ee —— — — 


FIER INPUT ROUTINE) 


NO £WIMr-O 


ee ee — — — — — — — Ee — —— — ——— — — — ——— — —— 


CAC.NE2 


Teri C/CECBRRRRBARRRGE Cry rit 


01 


SOOOOOOOOOOOOOOOOCOoO0oO G00 
—— ee ee eee 
PROSKSSSKSrs ooo 


a 


o 
— 


— 
— 


—— 


—— — 
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BILGE Biase BLAS 


6114 


WETREROGERSR BS 


a 


— 
= 
£ 


BG ae 


001604 


INITIALIZE THE COMMON TAGS 


— SRP PRES BRIE 


ie oR crore PATTERN MODIFIER, PATTER. 


RPATA: ‘Oo EXPERT 


4 
are ASK OPERATOR-“PATTERN MODIFIER AND 
MPP ; PATTERN” 
MOV SPATRNM, 1S *SET TO INPUT PATTERN + MODIFIER 
a2 1$+2 
CLR PATRNM ;SET DEFAULTS: O PATTERN 
CLR PATRN : PAT MOD. = INC. 
ae RPATA 
NOCT GET THEM. 
1S: ⸗ 
NOV 8RCPATL, ;POINT TO MAING oF MODIFIER LIST. 
Ste 
POPE MIVP MESSAGE. 
* BR TA fet TION. 
° PATRNM 
are 8177761, PATRNM ;FIX ADDITIVE. 
—8 ORTEMP, T+12° sPOINT TO Cheee PATTERN MODIFIER ROUTINE. 
EXIT . RETURN. § 
. SBTTL eSve BNO RESTORE RO-RS ROUTINES 
STARS 
33 SRARSLAESARSESS EEL RASS SAREE ELSA RSASAE RARE AA SALE REAR LLEE 
&SAVE RO-RS 
3 #CALL: 
* SAVREG 
j BUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
jTOB---(+16) 
3% +2---(4+18) 
1% 46---R4 
nie 
i St1d---RO 
SSAVREG: 


PUSH (RO,R1,R2,R3,R4,RS> 


— — — 


+ +++ — — — — — — — — — — — — —— — —— 


T06 


: AEE Terae 1) ie Ao RESTORE RO-RS ROUTINES 


ooo 


— — — — 


5 
za : 2 && 
— ides — — 53 ee 8 8 
en ee 
BESESESSSS — 3 * —— 
æcagcurere —A * ——————— 
—— — Serteee Secbbbaetscess 
Po Se 
sete ve S xp 
2 bee 
— —— z ‘st, 2% 
pa ee 
SSSBESBESEE ; pepeennannctl clog  Sepesppuseesus 
—— — i 
ae 8 * 











— 


338 
012666 
HE 


— — — eee — 
oS = OGOOoUSGD —— Fam fame fae pam am fe pm am fen fame ae fe fe | RRS EERE 
SooucG0 COOCOCOCOCOCOCOCOCOCOCOC 





———————— SE ORRIN ESET 


—_—_—_—————e— — —ñ — — — — — — —— — — — 
— — — — — — —— — 
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116 ' 
Fy pre 
weeny 


a = oe 


Hes & 


| He 


Oo 
ba 


: ——————— 





+e 1 

ACTA 
— ey One 
Big esto ome 
016474 


— EC CLEP ene | 


MACY11 27(1006) 22-MAR-77 


016470 


016572 


RANOOM NUMBER GENERATOR ROUTINE 


* —— 
— 2 INTO RO 


LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


eee WE a UNSIGNED BINARY MUMGER TO A 
* —A BINARY NUMBER ON THE STACK 
3 IR Pe, 


OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


— ee cen 
—* (SP) 
* Rov 2(SP Hed I 
-SBTTL O Loam BINARY TO DECIMAL ASCII CONVERT ROUTINE 
sae 


Wee (ASELL) RuPGER. THE Sich OF The BIIVIRY RUTEER MIST Be 
ere 


: * SPNTR,=($P) 5 POINTER TO LOM WORD OF BINARY NUMBER 

ie TURN ss THE FIRST AOORESS OF ASCIZ 

~ ee pas: 
mA oe i sc 
a POM 
HOV BS TNPWR42,, RS 

1S: CLR R3 ;;CLEAR PARTIAL 


— — — — —— — — — — — — 


— — — 


_ MAINDEC-11-D2ICA-C 


MACY11 27(1006) 


| OzTCRC. NES 21-MAR-77 15:28 





Ta 
isp 












KO6 
22-NAR-77 09:40 PAGE 60 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


2s: sug (R4) RI ;;SUBTRACT TEN POWER 
Re 
_— IF TEN R To LARGE 
3S: * (R4)+,R1 Bet SUBTRACTED VALUE 
Faye Re 
Che (RS)4. (RS)4 ; ; MOVE 
S 0 R3 HE —* ASCII 
fat )+ 33 
us: c f i+ 33 
: —4 38E 
(RO)+ $8 a] 
C * $3 GISTERS 
STNPHR: #0609 
;;1.0€08 
331.0607 
—* ;;1.0€06 
103240 ;;1.0€05 
e120 ;;1.0E04 
ye ;;1.0€03 
a ;;1.0&02 
A ;;1.0€01 
;;1.0€00 
SDECVL: .BLKB 12. ;;RESERVE STORAGE FOR ASCIZ STRING 
SERROR SERRTYP 
.SBTTL ERROR HANDLER ROUTINE 
STARS 
i iTHI WI INCREMENT TH THE COUNT, 
The enon then THE ROORESS OF CALL 


tre BY THIS ROUTINE ARE: 
HALT ON 
INHIBIT TYPEOUTS 


_ 


> eee — — — — — — — — 


— — — 


) MAINDEC-11-DZICA-C MACY11 27(1006) -MAR-77 ag hy PAGE 61 
| DZICAC.NE2 21-NAR-77 15:28 ROUTINE 
3% ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


HEY res eae 
ti ERROR FLAG 





| 
| Bt 
3 162234 $i 
* pai ay ROOREGE OF ERROR INSTRUCTION 
= 001 14 i if SAVE THE ERROR ITEM CODE 
5 1 3360 TO ROUTINE 
32 Ol 
a . BT 8 tie 
16766 * —* —1 OR CHANGE IN SOFT-SWR 
5998 016764 "RT ; ;RETURN 
a SBTTL EE csace TYPEOUT ROUTINE 
Sone 016766 STARS — 
on 3&THIS ROUTINE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
* SAND REPORTS —— INFORRATION CONCERNING THE ERROR , 
a3 ier 001163 SERRTYP: — Irie RETURN & “LINE FEED” 
301 i MOV »7(SP) ii 
BL HS Eg ous — ——— 
3014 i : 
a BON 001116 nove : » SEER $3 : FOR TYPEOUT 
18 01701 TYPOC 
17028 oes Ral 
2700 001166 8 TB, RO 
ae Be 017040 ey £R0)+,28 
ĩ 
os ot 001163 es: ee. scree 
| a oi 7oes 017056 3S: ey {R0)+, ws 
| 





i ae 


—X 


MOV NUM, -(SP) 


aa NUM, -(SP) 
i% WOPON : 


is " MOV NUM, -(SP) 
TYPOC 


SCRE TTS 0 — | 


MO6 
ees ei fen-77 Tecee! °710% eF re ccace tyPeout ROUTINE 


age ee 
us FS eam args wee: Bg a, 
piri hike mm Oe ee ae 38 
— Hes 017347 ROB OUe+1 RM 





i —— 


* DATA 
te an a 2 
001163 33° RETURN” & “LINE FEED 
A cana 7s Wer 4 4 
7100 0 MOV 3{ho)s,-(sP) HH 
171 TYPOC He on vero, DIGITS) 
tite ° T (RO) 33 NUMBER? 
1711 1 017116 fee, 3 —— 
17114 1 BR 68 
017116 —— 000 8S: IZ / / 33 Woe SPACES 
017122 : §TYPOCT 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
017122 STARS 


SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3 7 HHH HHH HHH HHH HHH 
*#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


;;NUMBER TO BE TYPED 
;;CALL_FOR OUT 
ts | 12 8 FOR NUMBER OF DIGITS TO TYPE 


HEDIS — 


iA Fon TYPEQUT— 


HESTYPOC-—-ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER 


3 ;NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


ARE Et PL 
ake Ft FOR eine) Of ) Ort —* 


ae NUMBER OF DIGITS TO TYPE 





: : 
3 x « § & : 
* E g* + be = | 
fee me ys eee EB pease wang f 
— —33325* A— ——— 
—— ——— — — — ——ù 
— — — =e — an ~, BeVoEe 
cmon oe es — — 222222 89 ——— 
3 —— 
“38 yey eens * fe a 
z As oP — A 
: —— mere none — Panera 
© I sectsenessls 
: 28 8 a £ 8 8 — ß Bs 


— 


— ee — — —— — 
oo OoOOICOCOCOCOD oO 





salueVentas 
3 os 
Been 
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i 
‘ 
— —— — — 


— — — ee — — 





——— 






BO? 
Delon Nee  St-fen-77 Tssah ~~” poaeR Dom ARO UP ROUTINES 








ig Hay ie —I ei SSANRUP DePMRVEC’ isc T UP VECTOR 
3 2 ;;HANG UP 
1s) o17ve2 STARS 
y 
* 1 17514 0002" ine: Os — 55 FAST DOWN 
Z8 fi 1S: ine 3 —J in 
152 17H ODL 8 $i 
153 is 012677 161466 mov Ds oR a, gjpor STACK INTO asi 
1 12605 MOV 5P}+, AS $3 if : 
Pee Re | 
# 33 
164 O1 r MOV P)+, 33 
8 3338 4 
—* 017350 00024 a Surin 20 i if VECTOR 
1 re 1 SPWRNG: . PLOMSG 33 um Bane BSINTER 
17 1 2716 MOV (PC)+, (SP) 33 
i7g ii SPWRAD : are START 33 
17% 017519 SILLUP: HALT 35 if SEQUENCE WAS STARTED 
17g 286 ssavre: 8° * 33 te — 
173 ae SBTTL SSSPE HANOLER ROUT INE 
iB 017522 STARS 
i 

: ———— Rue ine ae cao 
ig hd hte wa 
187 3Fx. 
iss ; lial wet? 
16: xz etn 
ig 1 
: Hie Moms O40000 161406 1S: IT14,asmR si Peccent trent 
ig ie jayeeeSTART OF * FOR THE — —— * 
oa — Fce ——— — 

ο NOV i Troe tical * 


— — — — 


— — — — — 
















T ae ss ’ 
Sy — VECTOR 
3 
Ss: HH A TIME OUT 
my { Fon EC 
34 
6$:;88888END OF FOR THE XOR 
es: * 33 
9°98 
4S: 33 
3 ITERATIONS TO MAKE 
161322 3S: 33 
99 
Q 33 Oy 
1104 1S: MOV HH Teton 
81 MOV J IONS TO DO 
SSVLAD: INCB 33 
MOV 35 
161246 SOVER: MOV 33 
9° . ° 
SMXCNT: ue MAX. NUMBER OF ITERATIONS 


£33 5 
i =~ 
3 
: 
a 





:% 


= 
— 








C07 
EEL ier WeCYt 27°1006) «28-00-77 OS: POE 65 
* Quite RESISTER TRAP CALL 
THE 


17704 000176 001140 $CKSWR: * G, rr Tou SELECTED? 
33 
17714 161 ; 
— Ey pr EON! T WAIT AROUND 
1 t 8tC17?, (SP) 33 
8 —A bit 
1 001134 000001 ope 08, #1 eee Ie NG IN AUTO-MODE? 
i Q 1 ¥ ie Ie phe 
fe $3 
ii 
se 
7768 # 


en a 


Se a ASCTT CALL DIGITS) ! 





— — — — — — — — + + — — — —— —— —— — — — — — — — — — —, ——— ———— — 


DO? 


MAINDEC-11-DZICA-C MACY11 27(1006) 22-MAR-77 09:40 PAGE 66 
DZICAC.NE2  21-MAR-77 15:28 TTY INPUT ROUTINE 
oa ec SE ; a: oe at 4 ie — 
Tee 105772 161142 7S: TB He ere 
1 BPL +3 IF NOT AGAIN 
020004 1177% 161136 MOVE  aSTKB,-(SP) = PICK UP CHAR 
020010 daerie 348 BIC 8#C17?, (SP) ihe TT ScBIT ASCII 
020014 021627 Qs: (SP), aes 318 IT A CONTROL-U? 
" Ras — sy (tu) 
208: b6, SP 331 OUS 
1% *3LET’S TRY IT AGAIN 
10S: (SP), 815 33 T A_.<CR>? 
1 : IF 
if, 38 is ir he FIRST CHAR? 
161062 * a(S) asin 53 
4g: —3 «CR? <LF> 
000001 — 3 ny hb INTERRUPTS? 
161040 8100, aSTKS $3 ~ENABLE KBO INTERRUPTS 





STARS 


a ee aot — 


Col ol AY) Solel alent 
“9 
— 
+ 


— — — 


won 
~ 
— 


I—— 
;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RRR vere 


Sea —— 


— —— —— —— — — — — — — 


ere Ee Oat n-77 Meceg! C7100) ee ier ROUTING 


Gy Step) i » gabe 
‘ i! F 
ee 


ieeT nl oF JUNK IF ANY 
— 


ea 
=> 
o> 
~ 
— — 


beds sh sv tr Sa 
— 
6 


S262 coe 
e°8 
ce 
- = 8 
a6 * 


é 
a 
~~ 
8 
— 





” ROLIN $3 INPUT A STRING FROM THE 


a —— Gaia A ee Lg ME e 


Pike. (Pie. 
peu! ae ae 
—VV—— Looe 
·.. Fon Rerum 


~1(R3) 33 


8 
3 
B 


—— 
ty 





© 
RB 
as 





1 
a8 
BG 

NOL : 44 
33H 5 5 JHHINHIHHHIHHHHIIHHHHHEHHIHHiIHHIHHEHHHHHHHHHHHHHHHHHHHHHHHHEHHHE 
a4 THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
2 
<a 
= 


B59 iB. $3 ic NE FEED 
reo (SP), +(SP) He STACK AND PUT ADDRESS OF THE 
4(SP) e(SPD. 3 I ASCII CHARACTER ON IT 





——— 


22 
Wav aViadiaviadia® 
ore Ore Se ae | A 
SOOO 


/tU/¢15><12> 
IZ 7#G6/<15><12> 


Bg 
: 
8 


— u58 “FOR ASCII CHAR. TO TYPE 
TTYIN: ; , 8; He S FOR TTY INPUT 
. ; ;CONTROL "G" 


— — —— 


— — — — — — — — — - = = 


— 
DOVTMN LW 
£ - 
¢ ‘ ‘ 7 fd ae | ; 4-54 ‘ +74 ; 
4 VTE TETY TOTTy TET Tp Tr ry fo tory fi fore fo trom fron 
+ — — — 


— — — — — — ——— — — — — — —— — — — — —— — — — — —— ——— — — — — — 
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PS od oe = 


oo 
eo pe 
Fe 


= 


— 
ER 
-_ 
So 


— — + 
POP POTOTD Mor, ; 
. , , 
— asta Aah oh —3BV — PC 1,°t pug 
i A c \48 we "4 
— — 
— = 
— — — — — a 
oslo =U 
— 


= 





1 000012 


FO? 


ae ont’ 09:40 PAGE 68 
TTY INPUT ROUTINE 


SMSWR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = / 


, Cc 
- SBTTL Reo A DECIMAL NUMBER FROM THE TTY 
STARS 


POS Tg ee Ng 
——— yank ne 


;#POSITIVE 32767 TO NEGATIVE 32768. 


iE ROE. see i TEPER $8 ON TOP-OF THE. STACK 
sone: oy SSE, NEHRU 
MOV =—s- RO, - (SP) 33 RO T 
. By Ee RUE 
Ges FF, (RO) * Riruy sion was TYPED 
2s: hove Choe Re Hi — TER 
CHE 8°0,R) KE THIS CHARACTER 
free ior 3318 A DIGIT 089 
Be HOTS) DOT HAN ER Foci 
MOV ©: (SP), -( SP) ee FOR LATER 
= F net to ISN’T PLLOWED 
a A 
3S: fst SRG oF mureer 15 vec 
vs, Se (Besecse Sve tree — 


— — — — — — — — — — — — ce ee —— ee — — —— — — me 


807 
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(8 fe + Oop 38 INTO R 
* — — J5 
W SS: TST (SB)+ Had: PARTIAL NUMBER FROM STACK 
* — type HH eu ofp TO BAD CHAR. 
x ants 001162 OS: ie, sques i001 — 5 
3 00720 BR is ee ACAIN 
333 .SBTTL i¥Pe ROUTINE 
a STARS 
;#ROUTINE TO Ret es eee abt si A O BYTE. 
a5 bANOTEL: murine ‘iL ena — —— — eect 
3447 : #NOTES: AINS CHERACTER TO FILL — 2 
zi me: =| BIS So ie tere | 
3449 *#CALL: 
3450 #1) USING A TRAP INSTRUCTION 
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